home *** CD-ROM | disk | FTP | other *** search
/ MacHack 1993 / MacHack 1993.toast / MacHack™ 1987-1992 / MacHack™ '90 / Other Stuff / Demos ƒ / Demo AppMaker / Demo AppMaker™ / Demo AppMaker™.rsrc / TmPT_102_App < prev    next >
Encoding:
Text File  |  1990-03-23  |  1.1 KB  |  47 lines
  1. { %filename% -- application methods }
  2. { Created %date% %time% by AppMaker }
  3.  
  4. {    This module overrides the AppMaker-generated code in z%Appname%App.%    %}
  5. {    It provides a place for you to add your own code and still be able to    }
  6. {    generate code for new changes to the user interface.  This module will    }
  7. {    not be regenerated by AppMaker unless you delete it.  Its superclass,    }
  8. {    z%Appname%App, may be regenerated to handle user interface changes%        %}
  9. {    without losing your hand-coded changes to this module.                    }
  10.  
  11. Unit %unitname%;
  12. Interface
  13.  
  14. Uses
  15.     TCL,
  16.     AMCL,
  17.     z%AppName%Intf,
  18.     %AppName%Intf,
  19.     %for each menu gen usesDialogs%
  20.     ResourceDefs;
  21.  
  22. {----------}
  23. Implementation
  24.  
  25. {----------}
  26. Procedure C%Appname%App.SetUpFileParameters;
  27. Begin
  28.     inherited SetUpFileParameters;
  29.     sfNumTypes := 1;
  30.     sfFileTypes [0] := 'TEXT';
  31.     gSignature := '????';
  32. End; {SetUpFileParameters}
  33.  
  34. %for each menu gen doItems.override%
  35. {----------}
  36. Procedure C%Appname%App.DoCommand    (theCommand:    longint);
  37. Begin
  38.     case theCommand of
  39.         0:    ;
  40.         %for each menu gen handleItems%
  41.         otherwise
  42.             inherited DoCommand (theCommand);
  43.     end; {case}
  44. End; {DoCommand}
  45.  
  46. End. {%unitname%}
  47.